sum = foldr (\e s -> e + s) 0.0